home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 049a / ezutl103.zip / SENDREPS.SCR < prev    next >
Text File  |  1990-02-13  |  2KB  |  83 lines
  1. ;
  2. ;   This Qmodem script file is to be used in conjuction with the EZ-Reader
  3. ;   utils, PCB2QWK and REP2PCB. The script reads the message file and sends
  4. ;   it to PC Board. This script was tested on PC Board 14.2/D. You may have
  5. ;   to modify it to suit your needs.
  6. ;
  7. ;   The calling script must have the following two lines to operate.
  8. ;       string   MSGFILE          ; FileName of the Message file
  9. ;       assign   MSGFILE          C:\MAIL\60.PCB
  10. ;   Replace the contents MSGFILE with the name of your message file. This
  11. ;   will vary, so you will probably want some type of input routine in your
  12. ;   main script.
  13. ;
  14. ;============================================================================
  15.  
  16. debug off
  17.  
  18. turnon   8_BIT            ;This series of entries sets up the
  19. turnoff  LINEFEED         ;Qmodem operating environment.
  20. turnoff  XON/XOFF
  21. turnoff  NOISE
  22. turnoff  MUSIC
  23. turnon   SCROLL
  24. turnoff  PRINT
  25. turnoff  ECHO
  26. ;
  27. ;
  28. exist $MSGFILE SendCap                ; Does Notefile exist
  29. displayln "Message file $MSGFILE was not found."
  30. displayln "Aborting..."
  31. goto End
  32. ;
  33. ;
  34. ;-----------------------------------------------------------;
  35. ;            ---- PROMPT ----               -- REPLY --     ;
  36. ;-----------------------------------------------------------;
  37. SendCap:
  38. When
  39. When     "to continue?"                     "N^M"
  40. When     "'Last Read' (Enter)=yes?"         "N^M"
  41. When     "Conference members (Enter)=no?"   "N^M"
  42. When     "More (Y), (N), (NS)"              "N^M"
  43. When     "(H)elp, More?"                    "N^M"
  44. When     "NO CARRIER"                       End
  45.  
  46. send     "^M"
  47. waitfor  "Command?"
  48.  
  49. openfile $MSGFILE read
  50. ReadLoop:
  51.    readfile 0
  52.    delay 500
  53.    if "$0" = "_EOF_"            NoMore
  54.    if "$0" = ""                 BlankLine
  55.    if "$0" = "***JNC***"        JoinConference
  56.    if "$0" = "***EOM***"        EndMessage
  57.    send "$0^M"
  58.    goto ReadLoop
  59. BlankLine:
  60.    send " ^M"
  61.    goto ReadLoop
  62. JoinConference:
  63.    readfile 0
  64.    delay 500
  65.    send "J;$0^M"
  66.    waitfor  "Command?"
  67.    goto ReadLoop
  68. EndMessage:
  69.    send "^M"
  70.    delay 500
  71.    send "S^M"
  72.    waitfor "Command?"
  73.    delay 500
  74.    send "^M"
  75.    waitfor "Command?"
  76.    goto ReadLoop
  77.  
  78. NoMore:
  79. closefile
  80.  
  81.  
  82. End:
  83. return